<!--#include file="Ini.asp"-->
<!--#include file="../AspLib/Functions.asp"-->

<%
Response.expires = 0
sESCOLA= Request("ESCOLA")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3
conn.CommandTimeout = 1500

%>
<% = sHEAD %>
<% = sBODY2 %>
<!--div id="bt-top">
  <a class="bt r" href='palm_escola_roteiros_ver.asp?ESCOLA=<% = sESCOLA %>&ACAO=I'>Novo Roteiro</a>
</div-->
<div id="content">
<%
MSQL="SELECT NM_ESCOLA FROM ESCOLA WHERE CODIGO=" & sESCOLA
Set rs = Conn.Execute(MSQL)
NOME_ESCOLA=RS("NM_ESCOLA")
%>
<h1>Roteiros na escola</h1>

<h2><% = NOME_ESCOLA %></h2>
<table>
  <thead>
    <tr>
      <th>Data</th>
      <th>Atividade</th>
      <th>Obs.</th>
      <th>Divulg.</th>
    </tr>
  </thead>
  <tbody>
<%
MSQL="SELECT * FROM ESCOLA_ROTEIRO WHERE COD_ESCOLA=" & sESCOLA & " ORDER BY DT_ROTEIRO DESC" 
Set rs = Conn.Execute(MSQL)
if not rs.eof then
     MQTD=0
     Do while not rs.eof 
         %>
         <tr>
            <td>
            <%
            IF SESSION("USUARIO") = TRIM(RS("DIVULGADOR")) THEN
              %><a href='palm_escola_roteiros_ver.asp?ESCOLA=<% = RS("COD_ESCOLA") %>&ROTEIRO=<%= RS("DT_ROTEIRO") %>&DIVULGADOR=<%= RS("DIVULGADOR")%>'><% = rs("DT_ROTEIRO") %></a><%
            ELSE
              RESPONSE.WRITE TRIM(RS("DT_ROTEIRO"))
            END IF
            %>
            </td>
            <td><% = rs("ATIVIDADE") %><br></td>
            <td><% = rs("OBS") %><br></td>
            <td><% = rs("DIVULGADOR") %></td>
          <%	
          MQTD=MQTD+1
          rs.MoveNext	      	
     Loop
end if
%>
        </tbody>
        <tfoot>  
          <tr>
            <td colspan="5">Total: <% = MQTD %> Roteiros</td>
          </tr>
        </tfoot>
      </table>
      
      </div><!-- end content -->
      <div id="bt-footer">
        <a class="bt-02 l" href="#ancora">Ir ao Topo</a>
        <a class="bt r" href='palm_escola_roteiros_ver.asp?ESCOLA=<% = sESCOLA %>&ACAO=I'>Novo Roteiro</a>
      </div>
  </div><!-- end main -->
</body>
</html><%
rs.Close : Set rs = Nothing
Conn.Close : Set conn = Nothing 
%>

